' 1.8" TFT LCD Demo (S6D02A1)

CPU 96
  Dim integer BLUE  = &H001F
  Dim integer RED   = &HF800
  Dim integer GREEN = &H07E0
  Dim integer CYAN  = &H07FF
  Dim integer MAGENTA=&HF81F
  Dim integer YELLOW= &HFFE0
  Dim integer WHITE = &HFFFF

DISPLAY open S6D02A1,2,11,3,2,128,160
SetTick 1000, uptime
ROTATE 3
BOX 0,0,160,128,green
DISPLAY 1,4,25,cyan,black,"Time/Date"
DISPLAY 1,5,112,red,black,"MM Basic v4.6++ B13"
DISPLAY 2,20,3,yellow,black,Time$
DISPLAY 1,79,25,yellow,black,Date$
LINE 1,38,159,38,green
LINE 1,110,159,110,green

Do
  ictempdata=DS18B20(8)
  temp_c$=Str$(ictempdata)
  temp_f$=Str$(ictempdata*9/5+32)
  DISPLAY 6,15,45,white,black,Temp_f$
Loop

Sub uptime
DISPLAY 2,20,3,yellow,black,Time$
End Sub                 